`merge.rulesets` <-
function(ruleset1,ruleset2)
{
	# Get length info
	lgth1 = length(ruleset1)
	lgth2 = length(ruleset2)

	for(i in 1:lgth2) {
		ruleset1[[as.character(lgth1+i)]] = ruleset2[[i]]
	}
	return(ruleset1)
}

